Developer CD Series 1994 November: Tool Chest

home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Matts-utils.sea / Matts-utils / drag-gray-region-lisp.lisp < prev next >
MacBinary | 1992-08-17 | 9.8 KB | [TEXT/CCL2]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Mon Aug 17 08:00:37 1992, modified Mon Aug 17 08:00:37 1992, creator Common Lisp 2, type ASCII, 9164 bytes "drag-gray-region-lisp.lisp" , at 0x244c 604 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[CCL2]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 1a 64 72 61 67 2d 67 | 72 61 79 2d 72 65 67 69 |..drag-g|ray-regi|
|00000010| 6f 6e 2d 6c 69 73 70 2e | 6c 69 73 70 00 00 00 00 |on-lisp.|lisp....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 23 cc 00 | 00 02 5c a6 b5 45 65 a6 |.....#..|..\..Ee.|
|00000060| b5 45 65 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Ee.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7b c0 00 00 |........|....{...|
|00000080| 3b 3b 3b 0d 3b 3b 3b 20 | 64 72 61 67 2d 67 72 61 |;;;.;;; |drag-gra|
|00000090| 79 2d 72 65 67 69 6f 6e | 2d 6c 69 73 70 2e 6c 69 |y-region|-lisp.li|
|000000a0| 73 70 0d 3b 3b 3b 0d 0d | 23 7c 0d 3d 3d 3d 3d 3d |sp.;;;..|#|.=====|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 50 75 72 70 |========|===.Purp|
|000000f0| 6f 73 65 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ose ====|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 3d 3d 3d |========|====.===|
|00000130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000160| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 44 65 |========|=====.De|
|00000170| 66 69 6e 65 73 20 64 72 | 61 67 2d 67 72 61 79 2d |fines dr|ag-gray-|
|00000180| 72 65 67 69 6f 6e 2d 6c | 69 73 70 20 2e 0d 0d 0d |region-l|isp ....|
|00000190| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001d0| 0d 53 74 61 74 75 73 20 | 3d 3d 3d 3d 3d 3d 3d 3d |.Status |========|
|000001e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000001f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000210| 3d 0d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=.======|========|
|00000220| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000230| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000240| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000250| 3d 3d 0d 49 6d 70 6c 65 | 6d 65 6e 74 65 64 2e 0d |==.Imple|mented..|
|00000260| 0d 43 6f 70 79 72 69 67 | 68 74 20 a9 20 31 39 39 |.Copyrig|ht . 199|
|00000270| 30 2d 39 32 20 4d 61 74 | 74 68 65 77 20 43 6f 72 |0-92 Mat|thew Cor|
|00000280| 6e 65 6c 6c 2e 20 41 6c | 6c 20 52 69 67 68 74 73 |nell. Al|l Rights|
|00000290| 20 52 65 73 65 72 76 65 | 64 2e 20 53 65 6e 64 0d | Reserve|d. Send.|
|000002a0| 62 75 67 73 2c 20 63 6f | 6d 6d 65 6e 74 73 2c 20 |bugs, co|mments, |
|000002b0| 71 75 65 73 74 69 6f 6e | 73 2c 20 61 6e 64 20 66 |question|s, and f|
|000002c0| 69 78 65 73 20 74 6f 20 | 63 6f 72 6e 65 6c 6c 40 |ixes to |cornell@|
|000002d0| 63 73 2e 75 6d 61 73 73 | 2e 65 64 75 2e 0d 0d 0d |cs.umass|.edu....|
|000002e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000320| 0d 43 68 61 6e 67 65 20 | 68 69 73 74 6f 72 79 20 |.Change |history |
|00000330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000340| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000350| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000360| 3d 0d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=.======|========|
|00000370| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000380| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003a0| 3d 3d 0d 30 32 2d 41 75 | 67 2d 39 32 20 6d 63 09 |==.02-Au|g-92 mc.|
|000003b0| 43 72 65 61 74 65 64 2e | 0d 30 34 2d 41 75 67 2d |Created.|.04-Aug-|
|000003c0| 39 32 20 6d 63 09 43 68 | 61 6e 67 65 64 20 64 72 |92 mc.Ch|anged dr|
|000003d0| 61 67 2d 67 72 61 79 2d | 72 65 67 69 6f 6e 2d 6c |ag-gray-|region-l|
|000003e0| 69 73 70 27 73 20 61 72 | 67 73 20 74 6f 20 74 61 |isp's ar|gs to ta|
|000003f0| 6b 65 20 70 74 2d 67 6c | 6f 62 61 6c 2d 73 74 61 |ke pt-gl|obal-sta|
|00000400| 72 74 2c 0d 09 09 20 61 | 6e 64 20 74 6f 20 72 65 |rt,... a|nd to re|
|00000410| 74 75 72 6e 20 74 68 65 | 20 64 65 6c 74 61 2e 0d |turn the| delta..|
|00000420| 30 35 2d 41 75 67 2d 39 | 32 20 6d 63 09 46 69 78 |05-Aug-9|2 mc.Fix|
|00000430| 65 64 3a 20 42 75 67 3a | 20 49 66 20 6f 6e 65 20 |ed: Bug:| If one |
|00000440| 63 6c 69 63 6b 73 20 61 | 6e 64 20 6d 6f 76 65 73 |clicks a|nd moves|
|00000450| 20 71 75 69 63 6b 6c 79 | 20 74 68 65 20 6d 6f 75 | quickly| the mou|
|00000460| 73 65 20 61 77 61 79 0d | 09 09 20 66 72 6f 6d 20 |se away.|.. from |
|00000470| 74 68 65 20 63 6c 69 63 | 6b 20 70 6f 69 6e 74 2c |the clic|k point,|
|00000480| 20 74 68 65 20 67 72 61 | 79 20 72 65 67 69 6f 6e | the gra|y region|
|00000490| 20 69 73 20 6f 66 66 73 | 65 74 20 66 72 6f 6d 20 | is offs|et from |
|000004a0| 74 68 65 20 6d 6f 75 73 | 65 0d 09 09 20 70 6f 69 |the mous|e... poi|
|000004b0| 6e 74 2e 0d 31 35 2d 41 | 75 67 2d 39 32 20 6d 63 |nt..15-A|ug-92 mc|
|000004c0| 09 46 69 78 65 64 20 64 | 72 61 67 2d 67 72 61 79 |.Fixed d|rag-gray|
|000004d0| 2d 72 65 67 69 6f 6e 2d | 6c 69 73 70 20 74 6f 20 |-region-|lisp to |
|000004e0| 63 6c 69 70 74 20 74 6f | 20 70 6f 72 74 2d 77 6d |clipt to| port-wm|
|000004f0| 67 72 27 73 20 70 6f 72 | 74 52 65 63 74 2e 0d 31 |gr's por|tRect..1|
|00000500| 37 2d 41 75 67 2d 39 32 | 20 6d 63 09 43 68 61 6e |7-Aug-92| mc.Chan|
|00000510| 67 65 64 20 64 72 61 67 | 2d 67 72 61 79 2d 72 65 |ged drag|-gray-re|
|00000520| 67 69 6f 6e 2d 6c 69 73 | 70 20 74 6f 20 75 73 65 |gion-lis|p to use|
|00000530| 20 23 5f 44 72 61 67 47 | 72 61 79 52 67 6e 20 2e | #_DragG|rayRgn .|
|00000540| 0d 0d 7c 23 0d 0d 0d 28 | 69 6e 2d 70 61 63 6b 61 |..|#...(|in-packa|
|00000550| 67 65 20 22 43 43 4c 22 | 29 0d 0d 28 65 78 70 6f |ge "CCL"|)..(expo|
|00000560| 72 74 20 27 28 44 52 41 | 47 2d 47 52 41 59 2d 52 |rt '(DRA|G-GRAY-R|
|00000570| 45 47 49 4f 4e 2d 4c 49 | 53 50 29 29 0d 0d 0d 3b |EGION-LI|SP))...;|
|00000580| 3b 3b 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |;;======|========|
|00000590| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005c0| 3d 3d 0d 3b 3b 3b 0d 3b | 3b 3b 3d 3d 3d 3d 3d 3d |==.;;;.;|;;======|
|000005d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000600| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 0d 3b 3b 3b 20 |========|==..;;; |
|00000610| 57 69 6e 64 6f 77 2d 6d | 61 6e 61 67 65 72 2d 70 |Window-m|anager-p|
|00000620| 6f 72 74 20 69 73 20 66 | 72 6f 6d 20 41 70 70 6c |ort is f|rom Appl|
|00000630| 65 27 73 20 69 66 74 2d | 6d 61 63 72 6f 73 2e 6c |e's ift-|macros.l|
|00000640| 69 73 70 3a 0d 0d 28 64 | 65 66 6d 61 63 72 6f 20 |isp:..(d|efmacro |
|00000650| 77 69 6e 64 6f 77 2d 6d | 61 6e 61 67 65 72 2d 70 |window-m|anager-p|
|00000660| 6f 72 74 20 28 29 0d 20 | 20 27 28 25 73 74 61 63 |ort (). | '(%stac|
|00000670| 6b 2d 62 6c 6f 63 6b 20 | 28 28 70 6f 72 74 20 34 |k-block |((port 4|
|00000680| 29 29 0d 20 20 20 20 20 | 28 72 65 71 75 69 72 65 |)).     |(require|
|00000690| 2d 74 72 61 70 20 23 5f | 47 65 74 57 4d 67 72 50 |-trap #_|GetWMgrP|
|000006a0| 6f 72 74 20 3a 70 74 72 | 20 70 6f 72 74 29 0d 20 |ort :ptr| port). |
|000006b0| 20 20 20 20 28 25 67 65 | 74 2d 70 74 72 20 70 6f |    (%ge|t-ptr po|
|000006c0| 72 74 29 29 29 0d 0d 0d | 28 64 65 66 67 65 6e 65 |rt)))...|(defgene|
|000006d0| 72 69 63 20 64 72 61 67 | 2d 67 72 61 79 2d 72 65 |ric drag|-gray-re|
|000006e0| 67 69 6f 6e 2d 6c 69 73 | 70 20 28 6d 61 63 70 74 |gion-lis|p (macpt|
|000006f0| 72 2d 72 65 67 69 6f 6e | 2d 67 6c 6f 62 61 6c 0d |r-region|-global.|
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000720| 20 20 20 66 75 6e 63 74 | 69 6f 6e 0d 20 20 20 20 |   funct|ion.    |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 |        |       p|
|00000750| 74 2d 67 6c 6f 62 61 6c | 2d 73 74 61 72 74 0d 20 |t-global|-start. |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000780| 20 20 26 6b 65 79 20 63 | 75 72 73 6f 72 20 61 78 |  &key c|ursor ax|
|00000790| 69 73 2d 63 6f 6e 73 74 | 72 61 69 6e 74 29 0d 20 |is-const|raint). |
|000007a0| 20 28 3a 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e | (:docum|entation|
|000007b0| 20 22 41 20 63 6c 65 61 | 6e 20 61 6e 64 20 73 69 | "A clea|n and si|
|000007c0| 6d 70 6c 65 20 6c 69 73 | 70 2d 6c 65 76 65 6c 20 |mple lis|p-level |
|000007d0| 76 65 72 73 69 6f 6e 20 | 6f 66 20 23 5f 44 72 61 |version |of #_Dra|
|000007e0| 67 47 72 61 79 52 67 6e | 2e 0d 49 6e 76 65 72 74 |gGrayRgn|..Invert|
|000007f0| 73 20 6d 61 63 70 74 72 | 2d 72 65 67 69 6f 6e 2d |s macptr|-region-|
|00000800| 67 6c 6f 62 61 6c 20 61 | 74 20 74 68 65 20 6d 6f |global a|t the mo|
|00000810| 75 73 65 20 70 6f 73 69 | 74 69 6f 6e 2c 20 64 65 |use posi|tion, de|
|00000820| 73 74 72 6f 79 69 6e 67 | 0d 6d 61 63 70 74 72 2d |stroying|.macptr-|
|00000830| 72 65 67 69 6f 6e 2d 67 | 6c 6f 62 61 6c 20 69 6e |region-g|lobal in|
|00000840| 20 74 68 65 20 70 72 6f | 63 65 73 73 2e 20 6d 61 | the pro|cess. ma|
|00000850| 63 70 74 72 2d 72 65 67 | 69 6f 6e 2d 67 6c 6f 62 |cptr-reg|ion-glob|
|00000860| 61 6c 20 69 73 20 64 72 | 61 77 6e 20 69 6e 0d 74 |al is dr|awn in.t|
|00000870| 68 65 20 77 69 6e 64 6f | 77 20 6d 61 6e 61 67 65 |he windo|w manage|
|00000880| 72 27 73 20 70 6f 72 74 | 20 73 6f 20 73 68 6f 75 |r's port| so shou|
|00000890| 6c 64 20 62 65 20 63 72 | 65 61 74 65 64 20 72 65 |ld be cr|eated re|
|000008a0| 6c 61 74 69 76 65 20 74 | 6f 20 23 40 28 30 20 30 |lative t|o #@(0 0|
|000008b0| 29 2e 0d 46 75 6e 63 74 | 69 6f 6e 20 69 73 20 63 |)..Funct|ion is c|
|000008c0| 61 6c 6c 65 64 20 65 61 | 63 68 20 74 69 6d 65 20 |alled ea|ch time |
|000008d0| 74 68 65 20 6d 6f 75 73 | 65 20 6d 6f 76 65 73 3b |the mous|e moves;|
|000008e0| 20 69 74 20 74 61 6b 65 | 73 20 6f 6e 65 20 61 72 | it take|s one ar|
|000008f0| 67 75 6d 65 6e 74 3a 0d | 70 74 2d 67 6c 6f 62 61 |gument:.|pt-globa|
|00000900| 6c 2d 63 75 72 72 65 6e | 74 2c 20 77 68 69 63 68 |l-curren|t, which|
|00000910| 20 69 73 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | is the |current |
|00000920| 67 6c 6f 62 61 6c 20 6d | 6f 75 73 65 20 70 6f 73 |global m|ouse pos|
|00000930| 69 74 69 6f 6e 2e 20 43 | 75 72 73 6f 72 20 69 73 |ition. C|ursor is|
|00000940| 0d 61 20 6d 61 63 70 74 | 72 20 6f 66 20 61 20 63 |.a macpt|r of a c|
|00000950| 75 72 73 6f 72 20 75 73 | 65 64 20 64 75 72 69 6e |ursor us|ed durin|
|00000960| 67 20 74 72 61 63 6b 69 | 6e 67 2c 20 61 6e 64 20 |g tracki|ng, and |
|00000970| 64 65 66 61 75 6c 74 73 | 20 74 6f 0d 2a 61 72 72 |defaults| to.*arr|
|00000980| 6f 77 2d 63 75 72 73 6f | 72 2a 2e 20 61 78 69 73 |ow-curso|r*. axis|
|00000990| 2d 63 6f 6e 73 74 72 61 | 69 6e 74 20 69 73 20 6f |-constra|int is o|
|000009a0| 6e 65 20 6f 66 20 3a 6e | 6f 2d 63 6f 6e 73 74 72 |ne of :n|o-constr|
|000009b0| 61 69 6e 74 2c 20 3a 68 | 2d 61 78 69 73 2d 6f 6e |aint, :h|-axis-on|
|000009c0| 6c 79 2c 20 6f 72 0d 3a | 76 2d 61 78 69 73 2d 6f |ly, or.:|v-axis-o|
|000009d0| 6e 6c 79 2e 20 52 65 74 | 75 72 6e 73 20 61 20 70 |nly. Ret|urns a p|
|000009e0| 6f 69 6e 74 20 74 68 61 | 74 20 69 73 20 74 68 65 |oint tha|t is the|
|000009f0| 20 64 69 66 66 65 72 65 | 6e 63 65 20 62 65 74 77 | differe|nce betw|
|00000a00| 65 65 6e 20 74 68 65 20 | 67 6c 6f 62 61 6c 0d 70 |een the |global.p|
|00000a10| 6f 69 6e 74 20 72 65 6c | 65 61 73 65 64 20 61 74 |oint rel|eased at|
|00000a20| 20 61 6e 64 20 70 74 2d | 67 6c 6f 62 61 6c 2d 73 | and pt-|global-s|
|00000a30| 74 61 72 74 2e 22 29 29 | 0d 0d 0d 28 64 65 66 6d |tart."))|...(defm|
|00000a40| 65 74 68 6f 64 20 64 72 | 61 67 2d 67 72 61 79 2d |ethod dr|ag-gray-|
|00000a50| 72 65 67 69 6f 6e 2d 6c | 69 73 70 20 28 28 6d 61 |region-l|isp ((ma|
|00000a60| 63 70 74 72 2d 72 65 67 | 69 6f 6e 2d 67 6c 6f 62 |cptr-reg|ion-glob|
|00000a70| 61 6c 20 6d 61 63 70 74 | 72 29 0d 20 20 20 20 20 |al macpt|r).     |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 66 75 |        |     (fu|
|00000aa0| 6e 63 74 69 6f 6e 20 66 | 75 6e 63 74 69 6f 6e 29 |nction f|unction)|
|00000ab0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ad0| 20 20 20 28 70 74 2d 67 | 6c 6f 62 61 6c 2d 73 74 |   (pt-g|lobal-st|
|00000ae0| 61 72 74 20 69 6e 74 65 | 67 65 72 29 0d 20 20 20 |art inte|ger).   |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 26 |        |       &|
|00000b10| 6b 65 79 20 28 63 75 72 | 73 6f 72 20 2a 61 72 72 |key (cur|sor *arr|
|00000b20| 6f 77 2d 63 75 72 73 6f | 72 2a 29 0d 20 20 20 20 |ow-curso|r*).    |
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 61 |        |      (a|
|00000b50| 78 69 73 2d 63 6f 6e 73 | 74 72 61 69 6e 74 20 3a |xis-cons|traint :|
|00000b60| 6e 6f 2d 63 6f 6e 73 74 | 72 61 69 6e 74 29 29 0d |no-const|raint)).|
|00000b70| 20 20 28 64 65 63 6c 61 | 72 65 20 28 6f 70 74 69 |  (decla|re (opti|
|00000b80| 6d 69 7a 65 20 73 70 65 | 65 64 29 29 0d 20 20 3b |mize spe|ed)).  ;|
|00000b90| 3b 0d 20 20 3b 3b 20 41 | 20 76 65 72 73 69 6f 6e |;.  ;; A| version|
|00000ba0| 20 74 68 61 74 20 75 73 | 65 73 20 23 5f 44 72 61 | that us|es #_Dra|
|00000bb0| 67 47 72 61 79 52 67 6e | 20 2e 0d 20 20 3b 3b 0d |gGrayRgn| ..  ;;.|
|00000bc0| 20 20 28 6c 65 74 2a 20 | 28 28 70 6f 72 74 2d 77 |  (let* |((port-w|
|00000bd0| 6d 67 72 20 28 77 69 6e | 64 6f 77 2d 6d 61 6e 61 |mgr (win|dow-mana|
|00000be0| 67 65 72 2d 70 6f 72 74 | 29 29 0d 20 20 20 20 20 |ger-port|)).     |
|00000bf0| 20 20 20 20 28 6d 61 63 | 70 74 72 2d 70 6f 72 74 |    (mac|ptr-port|
|00000c00| 72 65 63 74 2d 77 6d 67 | 72 20 28 72 72 65 66 20 |rect-wmg|r (rref |
|00000c10| 70 6f 72 74 2d 77 6d 67 | 72 20 67 72 61 66 50 6f |port-wmg|r grafPo|
|00000c20| 72 74 2e 70 6f 72 74 52 | 65 63 74 29 29 29 0d 20 |rt.portR|ect))). |
|00000c30| 20 20 20 3b 3b 20 53 65 | 74 75 70 20 74 68 65 20 |   ;; Se|tup the |
|00000c40| 63 61 6c 6c 20 74 6f 20 | 70 72 6f 63 2d 63 61 6c |call to |proc-cal|
|00000c50| 6c 2d 66 63 6e 20 74 68 | 65 6e 20 63 61 6c 6c 20 |l-fcn th|en call |
|00000c60| 23 5f 44 72 61 67 47 72 | 61 79 52 67 6e 20 2e 0d |#_DragGr|ayRgn ..|
|00000c70| 20 20 20 20 28 73 65 74 | 66 20 2a 70 74 2d 67 6c |    (set|f *pt-gl|
|00000c80| 6f 62 61 6c 2d 6c 61 73 | 74 2a 20 70 74 2d 67 6c |obal-las|t* pt-gl|
|00000c90| 6f 62 61 6c 2d 73 74 61 | 72 74 0d 20 20 20 20 20 |obal-sta|rt.     |
|00000ca0| 20 20 20 20 20 2a 66 75 | 6e 63 74 69 6f 6e 2d 64 |     *fu|nction-d|
|00000cb0| 72 61 67 67 69 6e 67 2a | 20 66 75 6e 63 74 69 6f |ragging*| functio|
|00000cc0| 6e 29 0d 20 20 20 20 28 | 77 69 74 68 2d 63 75 72 |n).    (|with-cur|
|00000cd0| 73 6f 72 20 63 75 72 73 | 6f 72 0d 20 20 20 20 20 |sor curs|or.     |
|00000ce0| 20 28 77 69 74 68 2d 70 | 6f 72 74 20 70 6f 72 74 | (with-p|ort port|
|00000cf0| 2d 77 6d 67 72 0d 20 20 | 20 20 20 20 20 20 28 77 |-wmgr.  |      (w|
|00000d00| 69 74 68 2d 70 65 6e 2d | 73 61 76 65 64 0d 20 20 |ith-pen-|saved.  |
|00000d10| 20 20 20 20 20 20 20 20 | 28 77 69 74 68 2d 63 6c |        |(with-cl|
|00000d20| 69 70 2d 72 65 63 74 20 | 6d 61 63 70 74 72 2d 70 |ip-rect |macptr-p|
|00000d30| 6f 72 74 72 65 63 74 2d | 77 6d 67 72 0d 20 20 20 |ortrect-|wmgr.   |
|00000d40| 20 20 20 20 20 20 20 20 | 20 3b 3b 20 4d 61 6b 65 |        | ;; Make|
|00000d50| 20 74 68 65 20 63 61 6c | 6c 2c 20 77 68 69 63 68 | the cal|l, which|
|00000d60| 20 72 65 74 75 72 6e 73 | 20 74 68 65 20 72 65 73 | returns| the res|
|00000d70| 75 6c 74 69 6e 67 20 64 | 69 66 66 65 72 65 6e 63 |ulting d|ifferenc|
|00000d80| 65 2e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |e..     |       (|
|00000d90| 23 5f 44 72 61 67 47 72 | 61 79 52 67 6e 20 6d 61 |#_DragGr|ayRgn ma|
|00000da0| 63 70 74 72 2d 72 65 67 | 69 6f 6e 2d 67 6c 6f 62 |cptr-reg|ion-glob|
|00000db0| 61 6c 20 70 74 2d 67 6c | 6f 62 61 6c 2d 73 74 61 |al pt-gl|obal-sta|
|00000dc0| 72 74 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |rt.     |        |
|00000dd0| 6d 61 63 70 74 72 2d 70 | 6f 72 74 72 65 63 74 2d |macptr-p|ortrect-|
|00000de0| 77 6d 67 72 20 6d 61 63 | 70 74 72 2d 70 6f 72 74 |wmgr mac|ptr-port|
|00000df0| 72 65 63 74 2d 77 6d 67 | 72 0d 20 20 20 20 20 20 |rect-wmg|r.      |
|00000e00| 20 20 20 20 20 20 20 28 | 65 63 61 73 65 20 61 78 |       (|ecase ax|
|00000e10| 69 73 2d 63 6f 6e 73 74 | 72 61 69 6e 74 0d 20 20 |is-const|raint.  |
|00000e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 3a 6e |        |     (:n|
|00000e30| 6f 2d 63 6f 6e 73 74 72 | 61 69 6e 74 20 30 29 0d |o-constr|aint 0).|
|00000e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00000e50| 3a 68 2d 61 78 69 73 2d | 6f 6e 6c 79 20 31 29 0d |:h-axis-|only 1).|
|00000e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00000e70| 3a 76 2d 61 78 69 73 2d | 6f 6e 6c 79 20 32 29 29 |:v-axis-|only 2))|
|00000e80| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 70 72 |.       |      pr|
|00000e90| 6f 63 2d 63 61 6c 6c 2d | 66 63 6e 29 29 29 29 29 |oc-call-|fcn)))))|
|00000ea0| 29 29 0d 0d 0d 28 64 65 | 66 76 61 72 20 2a 70 74 |))...(de|fvar *pt|
|00000eb0| 2d 67 6c 6f 62 61 6c 2d | 6c 61 73 74 2a 20 30 0d |-global-|last* 0.|
|00000ec0| 20 20 22 55 73 65 64 20 | 62 79 20 70 72 6f 63 2d |  "Used |by proc-|
|00000ed0| 63 61 6c 6c 2d 66 63 6e | 20 74 6f 20 6b 6e 6f 77 |call-fcn| to know|
|00000ee0| 20 77 68 65 6e 20 74 68 | 65 20 6d 6f 75 73 65 20 | when th|e mouse |
|00000ef0| 68 61 73 20 6d 6f 76 65 | 64 2e 22 29 0d 0d 0d 28 |has move|d.")...(|
|00000f00| 64 65 66 76 61 72 20 2a | 66 75 6e 63 74 69 6f 6e |defvar *|function|
|00000f10| 2d 64 72 61 67 67 69 6e | 67 2a 0d 20 20 22 55 73 |-draggin|g*.  "Us|
|00000f20| 65 64 20 62 79 20 70 72 | 6f 63 2d 63 61 6c 6c 2d |ed by pr|oc-call-|
|00000f30| 66 63 6e 20 74 6f 20 6b | 6e 6f 77 20 77 68 61 74 |fcn to k|now what|
|00000f40| 20 66 75 6e 63 74 69 6f | 6e 20 74 6f 20 63 61 6c | functio|n to cal|
|00000f50| 6c 2e 22 29 0d 0d 0d 28 | 64 65 66 6d 61 63 72 6f |l.")...(|defmacro|
|00000f60| 20 66 75 6e 63 61 6c 6c | 2d 73 61 76 69 6e 67 2d | funcall|-saving-|
|00000f70| 70 6f 72 74 20 28 66 75 | 6e 63 74 69 6f 6e 20 70 |port (fu|nction p|
|00000f80| 6f 72 74 20 70 6f 69 6e | 74 29 0d 20 20 60 28 77 |ort poin|t).  `(w|
|00000f90| 69 74 68 2d 70 6f 72 74 | 20 2c 70 6f 72 74 0d 20 |ith-port| ,port. |
|00000fa0| 20 20 20 20 28 77 69 74 | 68 2d 70 65 6e 2d 73 61 |    (wit|h-pen-sa|
|00000fb0| 76 65 64 20 28 66 75 6e | 63 61 6c 6c 20 2c 66 75 |ved (fun|call ,fu|
|00000fc0| 6e 63 74 69 6f 6e 20 2c | 70 6f 69 6e 74 29 29 29 |nction ,|point)))|
|00000fd0| 29 0d 0d 0d 28 64 65 66 | 70 61 73 63 61 6c 20 70 |)...(def|pascal p|
|00000fe0| 72 6f 63 2d 63 61 6c 6c | 2d 66 63 6e 20 28 29 0d |roc-call|-fcn ().|
|00000ff0| 20 20 28 6c 65 74 2a 20 | 28 28 6f 6c 64 2d 70 6f |  (let* |((old-po|
|00001000| 69 6e 74 20 2a 70 74 2d | 67 6c 6f 62 61 6c 2d 6c |int *pt-|global-l|
|00001010| 61 73 74 2a 29 0d 20 20 | 20 20 20 20 20 20 20 28 |ast*).  |       (|
|00001020| 70 74 2d 67 6c 6f 62 61 | 6c 2d 6e 65 77 20 28 76 |pt-globa|l-new (v|
|00001030| 69 65 77 2d 6d 6f 75 73 | 65 2d 70 6f 73 69 74 69 |iew-mous|e-positi|
|00001040| 6f 6e 20 6e 69 6c 29 29 | 0d 20 20 20 20 20 20 20 |on nil))|.       |
|00001050| 20 20 28 6d 6f 76 65 64 | 3f 20 28 2f 3d 20 6f 6c |  (moved|? (/= ol|
|00001060| 64 2d 70 6f 69 6e 74 20 | 70 74 2d 67 6c 6f 62 61 |d-point |pt-globa|
|00001070| 6c 2d 6e 65 77 29 29 29 | 0d 20 20 20 20 28 77 68 |l-new)))|.    (wh|
|00001080| 65 6e 20 6d 6f 76 65 64 | 3f 20 28 73 65 74 66 20 |en moved|? (setf |
|00001090| 2a 70 74 2d 67 6c 6f 62 | 61 6c 2d 6c 61 73 74 2a |*pt-glob|al-last*|
|000010a0| 20 70 74 2d 67 6c 6f 62 | 61 6c 2d 6e 65 77 29 0d | pt-glob|al-new).|
|000010b0| 20 20 20 20 20 20 28 66 | 75 6e 63 61 6c 6c 2d 73 |      (f|uncall-s|
|000010c0| 61 76 69 6e 67 2d 70 6f | 72 74 20 2a 66 75 6e 63 |aving-po|rt *func|
|000010d0| 74 69 6f 6e 2d 64 72 61 | 67 67 69 6e 67 2a 20 28 |tion-dra|gging* (|
|000010e0| 77 69 6e 64 6f 77 2d 6d | 61 6e 61 67 65 72 2d 70 |window-m|anager-p|
|000010f0| 6f 72 74 29 20 70 74 2d | 67 6c 6f 62 61 6c 2d 6e |ort) pt-|global-n|
|00001100| 65 77 29 29 29 29 0d 0d | 0d 3b 3b 3b 20 44 6f 6e |ew))))..|.;;; Don|
|00001110| 65 2e 0d 0d 28 70 72 6f | 76 69 64 65 20 22 44 52 |e...(pro|vide "DR|
|00001120| 41 47 2d 47 52 41 59 2d | 52 45 47 49 4f 4e 2d 4c |AG-GRAY-|REGION-L|
|00001130| 49 53 50 22 29 0d 0d 0d | 23 7c 20 3b 3b 3b 20 44 |ISP")...|#| ;;; D|
|00001140| 65 66 69 6e 65 20 73 6f | 6d 65 20 65 78 61 6d 70 |efine so|me examp|
|00001150| 6c 65 20 63 6f 64 65 2e | 0d 0d 0d 3b 3b 3b 20 47 |le code.|...;;; G|
|00001160| 6c 6f 62 61 6c 2d 74 6f | 2d 6c 6f 63 61 6c 20 61 |lobal-to|-local a|
|00001170| 6e 64 20 6c 6f 63 61 6c | 2d 74 6f 2d 67 6c 6f 62 |nd local|-to-glob|
|00001180| 61 6c 20 66 72 6f 6d 20 | 22 71 75 69 63 6b 64 72 |al from |"quickdr|
|00001190| 61 77 2e 6c 69 73 70 22 | 20 3a 0d 0d 28 75 6e 6c |aw.lisp"| :..(unl|
|000011a0| 65 73 73 20 28 66 62 6f | 75 6e 64 70 20 27 67 6c |ess (fbo|undp 'gl|
|000011b0| 6f 62 61 6c 2d 74 6f 2d | 6c 6f 63 61 6c 29 0d 20 |obal-to-|local). |
|000011c0| 20 28 64 65 66 6d 65 74 | 68 6f 64 20 67 6c 6f 62 | (defmet|hod glob|
|000011d0| 61 6c 2d 74 6f 2d 6c 6f | 63 61 6c 20 28 28 76 69 |al-to-lo|cal ((vi|
|000011e0| 65 77 20 73 69 6d 70 6c | 65 2d 76 69 65 77 29 20 |ew simpl|e-view) |
|000011f0| 68 20 26 6f 70 74 69 6f | 6e 61 6c 20 76 29 0d 20 |h &optio|nal v). |
|00001200| 20 20 20 28 77 69 74 68 | 2d 66 6f 63 75 73 65 64 |   (with|-focused|
|00001210| 2d 76 69 65 77 20 76 69 | 65 77 0d 20 20 20 20 20 |-view vi|ew.     |
|00001220| 20 28 72 6c 65 74 20 28 | 28 70 20 3a 70 6f 69 6e | (rlet (|(p :poin|
|00001230| 74 29 29 0d 20 20 20 20 | 20 20 20 20 28 25 70 75 |t)).    |    (%pu|
|00001240| 74 2d 6c 6f 6e 67 20 70 | 20 28 6d 61 6b 65 2d 70 |t-long p| (make-p|
|00001250| 6f 69 6e 74 20 68 20 76 | 29 29 0d 20 20 20 20 20 |oint h v|)).     |
|00001260| 20 20 20 28 23 5f 47 6c | 6f 62 61 6c 54 6f 4c 6f |   (#_Gl|obalToLo|
|00001270| 63 61 6c 20 70 29 0d 20 | 20 20 20 20 20 20 20 28 |cal p). |       (|
|00001280| 25 67 65 74 2d 6c 6f 6e | 67 20 70 29 29 29 29 29 |%get-lon|g p)))))|
|00001290| 0d 0d 28 75 6e 6c 65 73 | 73 20 28 66 62 6f 75 6e |..(unles|s (fboun|
|000012a0| 64 70 20 27 6c 6f 63 61 | 6c 2d 74 6f 2d 67 6c 6f |dp 'loca|l-to-glo|
|000012b0| 62 61 6c 29 0d 20 20 28 | 64 65 66 6d 65 74 68 6f |bal).  (|defmetho|
|000012c0| 64 20 6c 6f 63 61 6c 2d | 74 6f 2d 67 6c 6f 62 61 |d local-|to-globa|
|000012d0| 6c 20 28 28 76 69 65 77 | 20 73 69 6d 70 6c 65 2d |l ((view| simple-|
|000012e0| 76 69 65 77 29 20 68 20 | 26 6f 70 74 69 6f 6e 61 |view) h |&optiona|
|000012f0| 6c 20 76 29 0d 20 20 20 | 20 28 77 69 74 68 2d 66 |l v).   | (with-f|
|00001300| 6f 63 75 73 65 64 2d 76 | 69 65 77 20 76 69 65 77 |ocused-v|iew view|
|00001310| 0d 20 20 20 20 20 20 28 | 72 6c 65 74 20 28 28 70 |.      (|rlet ((p|
|00001320| 20 3a 70 6f 69 6e 74 29 | 29 0d 20 20 20 20 20 20 | :point)|).      |
|00001330| 20 20 28 25 70 75 74 2d | 6c 6f 6e 67 20 70 20 28 |  (%put-|long p (|
|00001340| 6d 61 6b 65 2d 70 6f 69 | 6e 74 20 68 20 76 29 29 |make-poi|nt h v))|
|00001350| 0d 20 20 20 20 20 20 20 | 20 28 23 5f 4c 6f 63 61 |.       | (#_Loca|
|00001360| 6c 54 6f 47 6c 6f 62 61 | 6c 20 70 29 0d 20 20 20 |lToGloba|l p).   |
|00001370| 20 20 20 20 20 28 25 67 | 65 74 2d 6c 6f 6e 67 20 |     (%g|et-long |
|00001380| 70 29 29 29 29 29 0d 0d | 0d 28 64 65 66 6d 65 74 |p)))))..|.(defmet|
|00001390| 68 6f 64 20 76 69 65 77 | 2d 69 6e 76 65 72 74 2d |hod view|-invert-|
|000013a0| 6d 61 72 6b 65 72 20 28 | 28 76 69 65 77 20 6e 75 |marker (|(view nu|
|000013b0| 6c 6c 29 20 28 70 74 2d | 67 6c 6f 62 61 6c 20 69 |ll) (pt-|global i|
|000013c0| 6e 74 65 67 65 72 29 29 | 0d 20 20 29 0d 0d 28 64 |nteger))|.  )..(d|
|000013d0| 65 66 6d 65 74 68 6f 64 | 20 76 69 65 77 2d 69 6e |efmethod| view-in|
|000013e0| 76 65 72 74 2d 6d 61 72 | 6b 65 72 20 28 28 76 69 |vert-mar|ker ((vi|
|000013f0| 65 77 20 73 69 6d 70 6c | 65 2d 76 69 65 77 29 20 |ew simpl|e-view) |
|00001400| 28 70 74 2d 67 6c 6f 62 | 61 6c 20 69 6e 74 65 67 |(pt-glob|al integ|
|00001410| 65 72 29 29 0d 20 20 3b | 3b 20 49 6e 76 65 72 74 |er)).  ;|; Invert|
|00001420| 20 61 20 73 6d 61 6c 6c | 20 62 6f 78 20 61 74 20 | a small| box at |
|00001430| 70 74 2d 67 6c 6f 62 61 | 6c 2c 20 6c 6f 63 61 6c |pt-globa|l, local|
|00001440| 20 74 6f 20 76 69 65 77 | 2e 0d 20 20 28 6c 65 74 | to view|..  (let|
|00001450| 2a 20 28 28 70 74 2d 74 | 6f 70 2d 6c 65 66 74 2d |* ((pt-t|op-left-|
|00001460| 67 6c 6f 62 61 6c 20 28 | 73 75 62 74 72 61 63 74 |global (|subtract|
|00001470| 2d 70 6f 69 6e 74 73 20 | 70 74 2d 67 6c 6f 62 61 |-points |pt-globa|
|00001480| 6c 20 23 40 28 33 20 33 | 29 29 29 0d 20 20 20 20 |l #@(3 3|))).    |
|00001490| 20 20 20 20 20 28 70 74 | 2d 62 6f 74 74 6f 6d 2d |     (pt|-bottom-|
|000014a0| 72 69 67 68 74 2d 67 6c | 6f 62 61 6c 20 28 61 64 |right-gl|obal (ad|
|000014b0| 64 2d 70 6f 69 6e 74 73 | 20 70 74 2d 74 6f 70 2d |d-points| pt-top-|
|000014c0| 6c 65 66 74 2d 67 6c 6f | 62 61 6c 20 23 40 28 36 |left-glo|bal #@(6|
|000014d0| 20 36 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 28 | 6))).  |       (|
|000014e0| 70 74 2d 74 6f 70 2d 6c | 65 66 74 20 28 67 6c 6f |pt-top-l|eft (glo|
|000014f0| 62 61 6c 2d 74 6f 2d 6c | 6f 63 61 6c 20 76 69 65 |bal-to-l|ocal vie|
|00001500| 77 20 70 74 2d 74 6f 70 | 2d 6c 65 66 74 2d 67 6c |w pt-top|-left-gl|
|00001510| 6f 62 61 6c 29 29 0d 20 | 20 20 20 20 20 20 20 20 |obal)). |        |
|00001520| 28 70 74 2d 62 6f 74 74 | 6f 6d 2d 72 69 67 68 74 |(pt-bott|om-right|
|00001530| 20 28 67 6c 6f 62 61 6c | 2d 74 6f 2d 6c 6f 63 61 | (global|-to-loca|
|00001540| 6c 20 76 69 65 77 20 70 | 74 2d 62 6f 74 74 6f 6d |l view p|t-bottom|
|00001550| 2d 72 69 67 68 74 2d 67 | 6c 6f 62 61 6c 29 29 29 |-right-g|lobal)))|
|00001560| 0d 20 20 20 20 28 72 6c | 65 74 20 28 28 72 65 63 |.    (rl|et ((rec|
|00001570| 74 20 3a 72 65 63 74 20 | 3a 74 6f 70 4c 65 66 74 |t :rect |:topLeft|
|00001580| 20 70 74 2d 74 6f 70 2d | 6c 65 66 74 20 3a 62 6f | pt-top-|left :bo|
|00001590| 74 74 6f 6d 52 69 67 68 | 74 20 70 74 2d 62 6f 74 |ttomRigh|t pt-bot|
|000015a0| 74 6f 6d 2d 72 69 67 68 | 74 29 29 0d 20 20 20 20 |tom-righ|t)).    |
|000015b0| 20 20 28 77 69 74 68 2d | 66 6f 63 75 73 65 64 2d |  (with-|focused-|
|000015c0| 76 69 65 77 20 76 69 65 | 77 20 20 20 20 20 20 20 |view vie|w       |
|000015d0| 20 20 20 20 3b 77 69 74 | 68 2d 70 6f 72 74 20 28 |    ;wit|h-port (|
|000015e0| 77 69 6e 64 6f 77 2d 6d | 61 6e 61 67 65 72 2d 70 |window-m|anager-p|
|000015f0| 6f 72 74 29 0d 20 20 20 | 20 20 20 20 20 28 23 5f |ort).   |     (#_|
|00001600| 49 6e 76 65 72 74 52 65 | 63 74 20 72 65 63 74 29 |InvertRe|ct rect)|
|00001610| 29 29 29 0d 20 20 3b 3b | 20 49 6e 76 65 72 74 20 |))).  ;;| Invert |
|00001620| 61 20 67 72 61 79 20 66 | 72 61 6d 65 20 6a 75 73 |a gray f|rame jus|
|00001630| 74 20 69 6e 73 69 64 65 | 20 76 69 65 77 2e 20 28 |t inside| view. (|
|00001640| 48 65 61 64 61 63 68 65 | 20 69 66 20 69 74 27 73 |Headache| if it's|
|00001650| 20 74 68 69 63 6b 21 29 | 0d 20 20 27 28 6c 65 74 | thick!)|.  '(let|
|00001660| 2a 20 28 28 70 74 2d 74 | 6f 70 2d 6c 65 66 74 20 |* ((pt-t|op-left |
|00001670| 23 40 28 30 20 30 29 29 | 0d 20 20 20 20 20 20 20 |#@(0 0))|.       |
|00001680| 20 20 28 70 74 2d 62 6f | 74 74 6f 6d 2d 72 69 67 |  (pt-bo|ttom-rig|
|00001690| 68 74 20 28 76 69 65 77 | 2d 73 69 7a 65 20 76 69 |ht (view|-size vi|
|000016a0| 65 77 29 29 29 0d 20 20 | 20 20 28 72 6c 65 74 20 |ew))).  |  (rlet |
|000016b0| 28 28 72 65 63 74 20 3a | 72 65 63 74 20 3a 74 6f |((rect :|rect :to|
|000016c0| 70 4c 65 66 74 20 70 74 | 2d 74 6f 70 2d 6c 65 66 |pLeft pt|-top-lef|
|000016d0| 74 20 3a 62 6f 74 74 6f | 6d 52 69 67 68 74 20 70 |t :botto|mRight p|
|000016e0| 74 2d 62 6f 74 74 6f 6d | 2d 72 69 67 68 74 29 29 |t-bottom|-right))|
|000016f0| 0d 20 20 20 20 20 20 28 | 77 69 74 68 2d 66 6f 63 |.      (|with-foc|
|00001700| 75 73 65 64 2d 76 69 65 | 77 20 76 69 65 77 0d 20 |used-vie|w view. |
|00001710| 20 20 20 20 20 20 20 28 | 77 69 74 68 2d 70 65 6e |       (|with-pen|
|00001720| 2d 73 61 76 65 64 0d 20 | 20 20 20 20 20 20 20 20 |-saved. |        |
|00001730| 20 28 23 5f 50 65 6e 4d | 6f 64 65 20 28 70 6f 73 | (#_PenM|ode (pos|
|00001740| 69 74 69 6f 6e 20 3a 50 | 41 54 58 4f 52 20 2a 70 |ition :P|ATXOR *p|
|00001750| 65 6e 2d 6d 6f 64 65 73 | 2a 29 29 0d 20 20 20 20 |en-modes|*)).    |
|00001760| 20 20 20 20 20 20 28 23 | 5f 50 65 6e 50 61 74 20 |      (#|_PenPat |
|00001770| 2a 67 72 61 79 2d 70 61 | 74 74 65 72 6e 2a 29 0d |*gray-pa|ttern*).|
|00001780| 20 20 20 20 20 20 20 20 | 20 20 28 23 5f 50 65 6e |        |  (#_Pen|
|00001790| 53 69 7a 65 20 33 20 33 | 29 0d 20 20 20 20 20 20 |Size 3 3|).      |
|000017a0| 20 20 20 20 28 23 5f 46 | 72 61 6d 65 52 65 63 74 |    (#_F|rameRect|
|000017b0| 20 72 65 63 74 29 29 29 | 29 29 29 0d 0d 0d 28 64 | rect)))|)))...(d|
|000017c0| 65 66 63 6c 61 73 73 20 | 64 65 6d 6f 2d 76 69 65 |efclass |demo-vie|
|000017d0| 77 20 28 62 75 74 74 6f | 6e 2d 64 69 61 6c 6f 67 |w (butto|n-dialog|
|000017e0| 2d 69 74 65 6d 29 0d 20 | 20 28 29 29 0d 0d 0d 28 |-item). | ())...(|
|000017f0| 64 65 66 6d 65 74 68 6f | 64 20 76 69 65 77 2d 63 |defmetho|d view-c|
|00001800| 6c 69 63 6b 2d 65 76 65 | 6e 74 2d 68 61 6e 64 6c |lick-eve|nt-handl|
|00001810| 65 72 20 28 28 76 69 65 | 77 20 64 65 6d 6f 2d 76 |er ((vie|w demo-v|
|00001820| 69 65 77 29 20 77 68 65 | 72 65 29 0d 20 20 3b 3b |iew) whe|re).  ;;|
|00001830| 0d 20 20 28 6c 65 74 2a | 20 28 28 73 74 72 2d 64 |.  (let*| ((str-d|
|00001840| 69 61 6c 6f 67 2d 69 74 | 65 6d 2d 74 65 78 74 2d |ialog-it|em-text-|
|00001850| 6f 6c 64 20 28 64 69 61 | 6c 6f 67 2d 69 74 65 6d |old (dia|log-item|
|00001860| 2d 74 65 78 74 20 76 69 | 65 77 29 29 0d 20 20 20 |-text vi|ew)).   |
|00001870| 20 20 20 20 20 20 28 6d | 61 63 70 74 72 2d 72 65 |      (m|acptr-re|
|00001880| 67 69 6f 6e 2d 67 6c 6f | 62 61 6c 20 28 23 5f 4e |gion-glo|bal (#_N|
|00001890| 65 77 52 67 6e 29 29 0d | 20 20 20 20 20 20 20 20 |ewRgn)).|        |
|000018a0| 20 28 70 74 2d 74 6f 70 | 2d 6c 65 66 74 20 28 6c | (pt-top|-left (l|
|000018b0| 6f 63 61 6c 2d 74 6f 2d | 67 6c 6f 62 61 6c 20 76 |ocal-to-|global v|
|000018c0| 69 65 77 20 30 29 29 0d | 20 20 20 20 20 20 20 20 |iew 0)).|        |
|000018d0| 20 28 70 74 2d 62 6f 74 | 74 6f 6d 2d 72 69 67 68 | (pt-bot|tom-righ|
|000018e0| 74 20 28 6c 6f 63 61 6c | 2d 74 6f 2d 67 6c 6f 62 |t (local|-to-glob|
|000018f0| 61 6c 20 76 69 65 77 20 | 28 76 69 65 77 2d 73 69 |al view |(view-si|
|00001900| 7a 65 20 76 69 65 77 29 | 29 29 0d 20 20 20 20 20 |ze view)|)).     |
|00001910| 20 20 20 20 28 70 74 2d | 67 6c 6f 62 61 6c 2d 6c |    (pt-|global-l|
|00001920| 61 73 74 20 28 6c 6f 63 | 61 6c 2d 74 6f 2d 67 6c |ast (loc|al-to-gl|
|00001930| 6f 62 61 6c 20 28 76 69 | 65 77 2d 63 6f 6e 74 61 |obal (vi|ew-conta|
|00001940| 69 6e 65 72 20 76 69 65 | 77 29 20 77 68 65 72 65 |iner vie|w) where|
|00001950| 29 29 0d 20 20 20 20 20 | 20 20 20 20 28 76 69 65 |)).     |    (vie|
|00001960| 77 2d 6c 61 73 74 20 28 | 66 69 6e 64 2d 76 69 65 |w-last (|find-vie|
|00001970| 77 2d 63 6f 6e 74 61 69 | 6e 69 6e 67 2d 70 6f 69 |w-contai|ning-poi|
|00001980| 6e 74 20 6e 69 6c 20 70 | 74 2d 67 6c 6f 62 61 6c |nt nil p|t-global|
|00001990| 2d 6c 61 73 74 29 29 0d | 20 20 20 20 20 20 20 20 |-last)).|        |
|000019a0| 20 70 74 2d 64 69 66 66 | 65 72 65 6e 63 65 29 0d | pt-diff|erence).|
|000019b0| 20 20 20 20 28 73 65 74 | 2d 64 69 61 6c 6f 67 2d |    (set|-dialog-|
|000019c0| 69 74 65 6d 2d 74 65 78 | 74 20 76 69 65 77 20 22 |item-tex|t view "|
|000019d0| 54 72 61 63 6b 69 6e 67 | c9 22 29 0d 20 20 20 20 |Tracking|.").    |
|000019e0| 3b 3b 0d 20 20 20 20 28 | 72 6c 65 74 20 28 28 72 |;;.    (|rlet ((r|
|000019f0| 65 63 74 20 3a 72 65 63 | 74 20 3a 74 6f 70 4c 65 |ect :rec|t :topLe|
|00001a00| 66 74 20 70 74 2d 74 6f | 70 2d 6c 65 66 74 20 3a |ft pt-to|p-left :|
|00001a10| 62 6f 74 74 6f 6d 52 69 | 67 68 74 20 70 74 2d 62 |bottomRi|ght pt-b|
|00001a20| 6f 74 74 6f 6d 2d 72 69 | 67 68 74 29 29 0d 20 20 |ottom-ri|ght)).  |
|00001a30| 20 20 20 20 28 23 5f 52 | 65 63 74 52 67 6e 20 6d |    (#_R|ectRgn m|
|00001a40| 61 63 70 74 72 2d 72 65 | 67 69 6f 6e 2d 67 6c 6f |acptr-re|gion-glo|
|00001a50| 62 61 6c 20 72 65 63 74 | 29 0d 20 20 20 20 20 20 |bal rect|).      |
|00001a60| 3b 3b 20 49 6e 76 65 72 | 74 20 69 6e 69 74 69 61 |;; Inver|t initia|
|00001a70| 6c 3a 0d 20 20 20 20 20 | 20 28 76 69 65 77 2d 69 |l:.     | (view-i|
|00001a80| 6e 76 65 72 74 2d 6d 61 | 72 6b 65 72 20 28 66 69 |nvert-ma|rker (fi|
|00001a90| 6e 64 2d 76 69 65 77 2d | 63 6f 6e 74 61 69 6e 69 |nd-view-|containi|
|00001aa0| 6e 67 2d 70 6f 69 6e 74 | 20 6e 69 6c 20 70 74 2d |ng-point| nil pt-|
|00001ab0| 67 6c 6f 62 61 6c 2d 6c | 61 73 74 29 0d 20 20 20 |global-l|ast).   |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ad0| 20 20 20 20 20 20 20 70 | 74 2d 67 6c 6f 62 61 6c |       p|t-global|
|00001ae0| 2d 6c 61 73 74 29 0d 20 | 20 20 20 20 20 28 73 65 |-last). |     (se|
|00001af0| 74 66 20 70 74 2d 64 69 | 66 66 65 72 65 6e 63 65 |tf pt-di|fference|
|00001b00| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 28 64 72 |.       |     (dr|
|00001b10| 61 67 2d 67 72 61 79 2d | 72 65 67 69 6f 6e 2d 6c |ag-gray-|region-l|
|00001b20| 69 73 70 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |isp.    |        |
|00001b30| 20 6d 61 63 70 74 72 2d | 72 65 67 69 6f 6e 2d 67 | macptr-|region-g|
|00001b40| 6c 6f 62 61 6c 0d 20 20 | 20 20 20 20 20 20 20 20 |lobal.  |        |
|00001b50| 20 20 20 23 27 28 6c 61 | 6d 62 64 61 20 28 70 74 |   #'(la|mbda (pt|
|00001b60| 2d 67 6c 6f 62 61 6c 2d | 63 75 72 72 65 6e 74 29 |-global-|current)|
|00001b70| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00001b80| 20 20 28 77 68 65 6e 20 | 28 6f 70 74 69 6f 6e 2d |  (when |(option-|
|00001b90| 6b 65 79 2d 70 29 0d 20 | 20 20 20 20 20 20 20 20 |key-p). |        |
|00001ba0| 20 20 20 20 20 20 20 20 | 20 20 28 73 65 74 2d 64 |        |  (set-d|
|00001bb0| 69 61 6c 6f 67 2d 69 74 | 65 6d 2d 74 65 78 74 0d |ialog-it|em-text.|
|00001bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001bd0| 20 20 20 20 76 69 65 77 | 20 28 66 6f 72 6d 61 74 |    view| (format|
|00001be0| 20 6e 69 6c 20 22 7e 41 | 20 7e 41 22 20 28 70 6f | nil "~A| ~A" (po|
|00001bf0| 69 6e 74 2d 73 74 72 69 | 6e 67 20 70 74 2d 67 6c |int-stri|ng pt-gl|
|00001c00| 6f 62 61 6c 2d 63 75 72 | 72 65 6e 74 29 0d 20 20 |obal-cur|rent).  |
|00001c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00001c30| 74 79 70 65 2d 6f 66 20 | 76 69 65 77 2d 6c 61 73 |type-of |view-las|
|00001c40| 74 29 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |t)))).  |        |
|00001c50| 20 20 20 20 20 20 20 3b | 3b 20 49 6e 76 65 72 74 |       ;|; Invert|
|00001c60| 20 6f 6c 64 3a 0d 20 20 | 20 20 20 20 20 20 20 20 | old:.  |        |
|00001c70| 20 20 20 20 20 20 20 28 | 76 69 65 77 2d 69 6e 76 |       (|view-inv|
|00001c80| 65 72 74 2d 6d 61 72 6b | 65 72 20 76 69 65 77 2d |ert-mark|er view-|
|00001c90| 6c 61 73 74 20 70 74 2d | 67 6c 6f 62 61 6c 2d 6c |last pt-|global-l|
|00001ca0| 61 73 74 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ast).   |        |
|00001cb0| 20 20 20 20 20 20 28 73 | 65 74 66 20 70 74 2d 67 |      (s|etf pt-g|
|00001cc0| 6c 6f 62 61 6c 2d 6c 61 | 73 74 20 70 74 2d 67 6c |lobal-la|st pt-gl|
|00001cd0| 6f 62 61 6c 2d 63 75 72 | 72 65 6e 74 0d 20 20 20 |obal-cur|rent.   |
|00001ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001cf0| 20 20 20 20 76 69 65 77 | 2d 6c 61 73 74 20 28 66 |    view|-last (f|
|00001d00| 69 6e 64 2d 76 69 65 77 | 2d 63 6f 6e 74 61 69 6e |ind-view|-contain|
|00001d10| 69 6e 67 2d 70 6f 69 6e | 74 20 6e 69 6c 20 70 74 |ing-poin|t nil pt|
|00001d20| 2d 67 6c 6f 62 61 6c 2d | 63 75 72 72 65 6e 74 29 |-global-|current)|
|00001d30| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001d40| 20 20 20 3b 3b 20 49 6e | 76 65 72 74 20 6e 65 77 |   ;; In|vert new|
|00001d50| 3a 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:.      |        |
|00001d60| 20 20 20 28 76 69 65 77 | 2d 69 6e 76 65 72 74 2d |   (view|-invert-|
|00001d70| 6d 61 72 6b 65 72 20 76 | 69 65 77 2d 6c 61 73 74 |marker v|iew-last|
|00001d80| 20 70 74 2d 67 6c 6f 62 | 61 6c 2d 6c 61 73 74 29 | pt-glob|al-last)|
|00001d90| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 |).      |       p|
|00001da0| 74 2d 67 6c 6f 62 61 6c | 2d 6c 61 73 74 0d 20 20 |t-global|-last.  |
|00001db0| 20 20 20 20 20 20 20 20 | 20 20 20 3a 63 75 72 73 |        |   :curs|
|00001dc0| 6f 72 20 2a 69 2d 62 65 | 61 6d 2d 63 75 72 73 6f |or *i-be|am-curso|
|00001dd0| 72 2a 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r*.     |        |
|00001de0| 3a 61 78 69 73 2d 63 6f | 6e 73 74 72 61 69 6e 74 |:axis-co|nstraint|
|00001df0| 20 28 63 6f 6e 64 20 28 | 28 73 68 69 66 74 2d 6b | (cond (|(shift-k|
|00001e00| 65 79 2d 70 29 20 3a 68 | 2d 61 78 69 73 2d 6f 6e |ey-p) :h|-axis-on|
|00001e10| 6c 79 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ly).    |        |
|00001e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e30| 20 20 20 20 20 20 20 20 | 28 28 6f 70 74 69 6f 6e |        |((option|
|00001e40| 2d 6b 65 79 2d 70 29 20 | 3a 76 2d 61 78 69 73 2d |-key-p) |:v-axis-|
|00001e50| 6f 6e 6c 79 29 0d 20 20 | 20 20 20 20 20 20 20 20 |only).  |        |
|00001e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001e70| 20 20 20 20 20 20 20 20 | 20 20 28 74 20 3a 6e 6f |        |  (t :no|
|00001e80| 2d 63 6f 6e 73 74 72 61 | 69 6e 74 29 29 29 29 0d |-constra|int)))).|
|00001e90| 20 20 20 20 20 20 3b 3b | 20 49 6e 76 65 72 74 20 |      ;;| Invert |
|00001ea0| 6c 61 73 74 20 74 68 65 | 6e 20 64 69 73 70 6f 73 |last the|n dispos|
|00001eb0| 65 2e 0d 20 20 20 20 20 | 20 28 76 69 65 77 2d 69 |e..     | (view-i|
|00001ec0| 6e 76 65 72 74 2d 6d 61 | 72 6b 65 72 20 76 69 65 |nvert-ma|rker vie|
|00001ed0| 77 2d 6c 61 73 74 20 70 | 74 2d 67 6c 6f 62 61 6c |w-last p|t-global|
|00001ee0| 2d 6c 61 73 74 29 0d 20 | 20 20 20 20 20 28 23 5f |-last). |     (#_|
|00001ef0| 44 69 73 70 6f 73 65 52 | 67 6e 20 6d 61 63 70 74 |DisposeR|gn macpt|
|00001f00| 72 2d 72 65 67 69 6f 6e | 2d 67 6c 6f 62 61 6c 29 |r-region|-global)|
|00001f10| 29 0d 20 20 20 20 3b 3b | 0d 20 20 20 20 28 73 65 |).    ;;|.    (se|
|00001f20| 74 2d 64 69 61 6c 6f 67 | 2d 69 74 65 6d 2d 74 65 |t-dialog|-item-te|
|00001f30| 78 74 20 76 69 65 77 20 | 73 74 72 2d 64 69 61 6c |xt view |str-dial|
|00001f40| 6f 67 2d 69 74 65 6d 2d | 74 65 78 74 2d 6f 6c 64 |og-item-|text-old|
|00001f50| 29 0d 20 20 20 20 28 70 | 72 69 6e 74 20 28 70 6f |).    (p|rint (po|
|00001f60| 69 6e 74 2d 73 74 72 69 | 6e 67 20 70 74 2d 64 69 |int-stri|ng pt-di|
|00001f70| 66 66 65 72 65 6e 63 65 | 29 29 29 29 0d 0d 0d 3b |fference|))))...;|
|00001f80| 3b 3b 20 54 65 73 74 2e | 0d 0d 28 64 65 66 75 6e |;; Test.|..(defun|
|00001f90| 20 74 65 73 74 2d 64 72 | 61 67 20 28 29 0d 20 20 | test-dr|ag ().  |
|00001fa0| 28 6c 65 74 2a 20 28 28 | 77 69 6e 64 6f 77 0d 20 |(let* ((|window. |
|00001fb0| 20 20 20 20 20 20 20 20 | 20 28 6d 61 6b 65 2d 69 |        | (make-i|
|00001fc0| 6e 73 74 61 6e 63 65 0d | 20 20 20 20 20 20 20 20 |nstance.|        |
|00001fd0| 20 20 20 20 27 77 69 6e | 64 6f 77 20 3a 77 69 6e |    'win|dow :win|
|00001fe0| 64 6f 77 2d 74 69 74 6c | 65 20 22 54 65 73 74 20 |dow-titl|e "Test |
|00001ff0| 44 72 61 67 22 0d 20 20 | 20 20 20 20 20 20 20 20 |Drag".  |        |
|00002000| 20 20 3a 76 69 65 77 2d | 70 6f 73 69 74 69 6f 6e |  :view-|position|
|00002010| 20 23 40 28 34 32 30 20 | 34 30 29 0d 20 20 20 20 | #@(420 |40).    |
|00002020| 20 20 20 20 20 20 20 20 | 3a 76 69 65 77 2d 73 69 |        |:view-si|
|00002030| 7a 65 20 23 40 28 32 31 | 30 20 36 30 29 0d 20 20 |ze #@(21|0 60).  |
|00002040| 20 20 20 20 20 20 20 20 | 20 20 3a 76 69 65 77 2d |        |  :view-|
|00002050| 73 75 62 76 69 65 77 73 | 0d 20 20 20 20 20 20 20 |subviews|.       |
|00002060| 20 20 20 20 20 28 6c 69 | 73 74 20 28 6d 61 6b 65 |     (li|st (make|
|00002070| 2d 69 6e 73 74 61 6e 63 | 65 20 27 64 65 6d 6f 2d |-instanc|e 'demo-|
|00002080| 76 69 65 77 0d 20 20 20 | 20 20 20 20 20 20 20 20 |view.   |        |
|00002090| 20 20 20 20 20 20 20 20 | 20 3a 76 69 65 77 2d 73 |        | :view-s|
|000020a0| 69 7a 65 20 23 40 28 32 | 30 30 20 32 30 29 0d 20 |ize #@(2|00 20). |
|000020b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020c0| 20 20 20 3a 76 69 65 77 | 2d 66 6f 6e 74 20 27 28 |   :view|-font '(|
|000020d0| 22 47 65 6e 65 76 61 22 | 20 39 29 0d 20 20 20 20 |"Geneva"| 9).    |
|000020e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020f0| 3a 64 69 61 6c 6f 67 2d | 69 74 65 6d 2d 74 65 78 |:dialog-|item-tex|
|00002100| 74 20 22 53 74 61 72 74 | 20 44 72 61 67 67 69 6e |t "Start| Draggin|
|00002110| 67 20 28 74 72 79 20 4f | 70 74 69 6f 6e 20 6b 65 |g (try O|ption ke|
|00002120| 79 29 22 29 29 29 29 29 | 0d 20 20 20 20 77 69 6e |y)")))))|.    win|
|00002130| 64 6f 77 29 29 0d 0d 0d | 3b 3b 3b 20 54 65 73 74 |dow))...|;;; Test|
|00002140| 20 77 69 74 68 20 73 63 | 72 6f 6c 6c 65 72 73 2e | with sc|rollers.|
|00002150| 0d 0d 28 72 65 71 75 69 | 72 65 20 22 53 43 52 4f |..(requi|re "SCRO|
|00002160| 4c 4c 45 52 53 22 29 0d | 0d 28 64 65 66 75 6e 20 |LLERS").|.(defun |
|00002170| 74 65 73 74 2d 64 72 61 | 67 2d 73 63 72 6f 6c 6c |test-dra|g-scroll|
|00002180| 65 72 20 28 29 0d 20 20 | 28 6c 65 74 2a 20 28 28 |er ().  |(let* ((|
|00002190| 77 69 6e 64 6f 77 20 28 | 6d 61 6b 65 2d 69 6e 73 |window (|make-ins|
|000021a0| 74 61 6e 63 65 0d 20 20 | 20 20 20 20 20 20 20 20 |tance.  |        |
|000021b0| 20 20 20 20 20 20 20 20 | 20 27 77 69 6e 64 6f 77 |        | 'window|
|000021c0| 20 3a 77 69 6e 64 6f 77 | 2d 74 69 74 6c 65 20 22 | :window|-title "|
|000021d0| 54 65 73 74 20 44 72 61 | 67 22 0d 20 20 20 20 20 |Test Dra|g".     |
|000021e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 76 |        |      :v|
|000021f0| 69 65 77 2d 70 6f 73 69 | 74 69 6f 6e 20 23 40 28 |iew-posi|tion #@(|
|00002200| 34 32 30 20 34 30 29 0d | 20 20 20 20 20 20 20 20 |420 40).|        |
|00002210| 20 20 20 20 20 20 20 20 | 20 20 20 3a 76 69 65 77 |        |   :view|
|00002220| 2d 73 69 7a 65 20 23 40 | 28 31 37 30 20 31 35 30 |-size #@|(170 150|
|00002230| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 28 73 63 |))).    |     (sc|
|00002240| 72 6f 6c 6c 65 72 20 28 | 6d 61 6b 65 2d 69 6e 73 |roller (|make-ins|
|00002250| 74 61 6e 63 65 20 27 73 | 63 72 6f 6c 6c 65 72 0d |tance 's|croller.|
|00002260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002270| 20 20 20 20 20 3a 76 69 | 65 77 2d 63 6f 6e 74 61 |     :vi|ew-conta|
|00002280| 69 6e 65 72 20 77 69 6e | 64 6f 77 0d 20 20 20 20 |iner win|dow.    |
|00002290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022a0| 20 3a 76 69 65 77 2d 73 | 69 7a 65 20 23 40 28 31 | :view-s|ize #@(1|
|000022b0| 32 35 20 31 32 35 29 0d | 20 20 20 20 20 20 20 20 |25 125).|        |
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 74 72 |        |     :tr|
|000022d0| 61 63 6b 2d 74 68 75 6d | 62 2d 70 20 74 29 29 0d |ack-thum|b-p t)).|
|000022e0| 20 20 20 20 20 20 20 20 | 20 28 64 65 6d 6f 2d 76 |        | (demo-v|
|000022f0| 69 65 77 20 28 6d 61 6b | 65 2d 69 6e 73 74 61 6e |iew (mak|e-instan|
|00002300| 63 65 20 27 64 65 6d 6f | 2d 76 69 65 77 0d 20 20 |ce 'demo|-view.  |
|00002310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002320| 20 20 20 20 3a 76 69 65 | 77 2d 70 6f 73 69 74 69 |    :vie|w-positi|
|00002330| 6f 6e 20 23 40 28 35 30 | 20 35 30 29 0d 20 20 20 |on #@(50| 50).   |
|00002340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002350| 20 20 20 3a 76 69 65 77 | 2d 73 69 7a 65 20 23 40 |   :view|-size #@|
|00002360| 28 32 30 30 20 32 30 29 | 0d 20 20 20 20 20 20 20 |(200 20)|.       |
|00002370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00002380| 76 69 65 77 2d 66 6f 6e | 74 20 27 28 22 47 65 6e |view-fon|t '("Gen|
|00002390| 65 76 61 22 20 39 29 0d | 20 20 20 20 20 20 20 20 |eva" 9).|        |
|000023a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 64 |        |      :d|
|000023b0| 69 61 6c 6f 67 2d 69 74 | 65 6d 2d 74 65 78 74 20 |ialog-it|em-text |
|000023c0| 22 53 74 61 72 74 20 44 | 72 61 67 67 69 6e 67 20 |"Start D|ragging |
|000023d0| 28 74 72 79 20 4f 70 74 | 69 6f 6e 20 6b 65 79 29 |(try Opt|ion key)|
|000023e0| 22 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".      |        |
|000023f0| 20 20 20 20 20 20 20 20 | 3a 76 69 65 77 2d 63 6f |        |:view-co|
|00002400| 6e 74 61 69 6e 65 72 20 | 73 63 72 6f 6c 6c 65 72 |ntainer |scroller|
|00002410| 29 29 29 0d 20 20 20 20 | 28 64 65 63 6c 61 72 65 |))).    |(declare|
|00002420| 20 28 69 67 6e 6f 72 65 | 20 64 65 6d 6f 2d 76 69 | (ignore| demo-vi|
|00002430| 65 77 29 29 0d 20 20 20 | 20 3b 3b 0d 20 20 20 20 |ew)).   | ;;.    |
|00002440| 77 69 6e 64 6f 77 29 29 | 0d 0d 7c 23 00 00 00 00 |window))|..|#....|
|00002450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002480| 00 00 01 00 00 00 02 0a | 00 00 01 0a 00 00 00 52 |........|.......R|
|00002490| 0c 9c ee 8b f0 24 1e 84 | ad 5a da 00 8d dc 8d 80 |.....$..|.Z......|
|000024a0| 8c e3 70 40 8d 0f 28 d2 | 89 f0 85 bf f5 82 6d 02 |..p@..(.|......m.|
|000024b0| 1a 64 72 61 67 2d 67 72 | 61 79 2d 72 65 67 69 6f |.drag-gr|ay-regio|
|000024c0| 6e 2d 6c 69 73 70 2e 6c | 69 73 70 67 02 00 00 00 |n-lisp.l|ispg....|
|000024d0| 00 00 54 45 58 54 43 43 | 4c 32 01 00 00 28 00 00 |..TEXTCC|L2...(..|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 a6 b5 02 a1 00 00 | 23 cc 00 00 02 5c db 6c |........|#....\.l|
|00002500| 5a 03 db 04 48 02 db 2a | 38 00 db f2 0f 02 99 8e |Z...H..*|8.......|
|00002510| bb c4 fe 01 9b 8d 90 af | 84 8d 94 eb bf 8d 90 ae |........|........|
|00002520| cf c2 da 02 be 00 0f 05 | 03 03 03 03 03 04 04 09 |........|........|
|00002530| 6f 14 26 00 00 02 00 01 | 01 8d d5 dd f4 78 02 8d |o.&.....|.....x..|
|00002540| c4 db 9a 98 02 99 cd 99 | cd bb bc 81 00 9b 8d 90 |........|........|
|00002550| ae cf 82 be 02 00 07 07 | 08 6f 08 1a 00 00 01 00 |........|.o......|
|00002560| 01 01 8d ef 20 40 f5 a2 | 91 01 ed 00 4f ae cf 8a |.... @..|....O...|
|00002570| 83 00 d3 00 06 04 6f 09 | 17 00 00 01 01 09 01 8d |......o.|........|
|00002580| 00 00 00 10 00 00 06 4d | 6f 6e 61 63 6f 06 47 65 |.......M|onaco.Ge|
|00002590| 6e 65 76 61 00 00 00 48 | 00 09 4d 6f 6e 61 63 6f |neva...H|..Monaco|
|000025a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025b0| 00 00 00 00 00 00 00 00 | 00 00 00 06 00 08 00 29 |........|.......)|
|000025c0| 00 03 01 de 02 00 00 29 | 00 03 01 de 02 00 00 00 |.......)|........|
|000025d0| 00 00 00 00 09 bb 00 00 | 09 bb 00 00 09 b9 01 00 |........|........|
|000025e0| 00 00 00 9e 00 02 00 04 | 09 00 00 03 09 01 01 00 |........|........|
|000025f0| 00 00 02 00 03 4e 01 00 | 03 63 02 00 04 47 01 00 |.....N..|.c...G..|
|00002600| 04 5c 02 00 04 94 01 00 | 04 a9 02 00 05 d0 01 00 |.\......|........|
|00002610| 05 e3 02 00 06 54 01 00 | 06 69 02 00 09 c6 01 00 |.....T..|.i......|
|00002620| 09 db 02 00 0e 2d 01 00 | 0e 3d 02 00 0e 87 01 00 |.....-..|.=......|
|00002630| 0e 9a 02 00 0e e1 01 00 | 0e f4 02 00 0f 5f 01 00 |........|....._..|
|00002640| 0f 6c 02 00 11 4c 01 00 | 11 5b 02 00 12 42 01 00 |.l...L..|.[...B..|
|00002650| 12 51 02 00 13 14 01 00 | 13 26 02 00 13 59 01 00 |.Q......|.&...Y..|
|00002660| 13 6b 02 00 17 48 01 00 | 17 51 02 00 17 7a 01 00 |.k...H..|.Q...z..|
|00002670| 17 92 02 00 1f 11 01 00 | 1f 1a 02 00 20 f0 01 00 |........|.... ...|
|00002680| 21 02 02 00 2b 4b 01 00 | 2b 5d 00 00 01 00 00 00 |!...+K..|+]......|
|00002690| 02 0a 00 00 01 0a 00 00 | 00 52 00 29 a0 54 09 30 |........|.R.).T.0|
|000026a0| 00 00 00 1c 00 52 00 01 | 46 52 45 44 00 01 00 12 |.....R..|FRED....|
|000026b0| 4d 50 53 52 00 00 00 2a | 00 02 ff ff 00 00 00 60 |MPSR...*|.......`|
|000026c0| 00 00 00 00 00 03 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 03 ed ff ff 00 00 00 14 | 00 29 ae 4c 00 00 00 00 |........|.).L....|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+